http://wiki.openstreetmap.org/wiki/Overpass_API
url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/CampSites_Germany.csv"
CampSites <- read.csv(url)
| X | name | tourism | website |
|---|---|---|---|
| 1 | Campingplatz Winkelbachtal | camp_site | http://www.gruibingen.de/campingplatz.html |
| 2 | Radler-Zeltplatz | camp_site | NA |
| 3 | Campingplatz des Naturfreundehauses | camp_site | NA |
| 4 | Campingplatz Am Aichstruter Stausee | camp_site | NA |
| 5 | NA | camp_site | NA |
| 6 | Kandern | camp_site | NA |
| 7 | Campingplatz Baiersbronn-Obertal | camp_site | NA |
| 8 | Campingplatz Schwabenmühle | camp_site | NA |
magrittr - für den Pipe Operator in R:
library("magrittr")
leaflet - um interaktive Karten mit der JavaScript Bibliothek ‘Leaflet’ zu erzeugen
library("leaflet")
m <- leaflet() %>%
addTiles() %>%
addMarkers(lng=CampSites$lon,
lat=CampSites$lat,
popup=CampSites$name)
m
m %>% addProviderTiles("Stamen.Toner")
Eine Stamen Karte als Hintergrund
m %>% addProviderTiles("CartoDB.Positron")
CartoDB als Hintergrund
popupInfo <- paste(CampSites$name,"\n",CampSites$website)
m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=CampSites$lon,
lat=CampSites$lat,
popup=popupInfo)
m
Das Ergebnis ist hier:
Campingplätze in Deutschland
Camping Mannheim
Ich hab die Ergebnisse hochgeladen:
Publizieren auf Rpubs
url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/whcSites.csv"
whcSites <- read.csv(url)
m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=whcSites$lon,
lat=whcSites$lat,
popup=whcSites$name_en)
m
Weltkulturerbestätten
whcSites$color <- "red"
whcSites$color[whcSites$category=="Cultural"] <- "blue"
whcSites$color[whcSites$category=="Mixed"] <- "orange"
m1 <- leaflet() %>%
addTiles() %>%
addCircles(lng=whcSites$lon,
lat=whcSites$lat,
popup=whcSites$name_en,
color=whcSites$color)
m1
Karte Weltkulturerbe
Als Website speichern